home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_11_1986_Transactor_Publishing.d64 / inpn & inpa (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  126 lines
  1. 0 rem inpa & inpn (w.happ, 1985)      :
  2. 1 :
  3. 2 rem 2 statements, 0 functions
  4. 3 :
  5. 4 rem keyword characters:  8
  6. 5 :
  7. 6 rem keyword     routine  line  ser #
  8. 7 rem s/inpa      npa     10218   143
  9. 8 rem s/inpn      npn     10224   144
  10. 9 :
  11. 10 rem=================================
  12. 11 :
  13. 142 .asc "inp[193]inp[206]"
  14. 1442 .word npa-1,npn-1
  15. 3478 inl2 jsr $ad8f
  16. 3480 sta $49
  17. 3482 sty $4a
  18. 3484 lda $7a
  19. 3486 ldy $7b
  20. 3488 sta $4b
  21. 3490 sty $4c
  22. 3492 ldx $43
  23. 3494 ldy $44
  24. 3496 stx $7a
  25. 3498 sty $7b
  26. 3500 jsr $73
  27. 3502 lda #0
  28. 3504 sta $07
  29. 3506 sta $08
  30. 3508 lda $7a
  31. 3510 ldy $7b
  32. 3512 jsr $b48d
  33. 3514 jsr $b7e2
  34. 3516 jsr $a9da
  35. 3518 lda $4b
  36. 3520 ldy $4c
  37. 3522 sta $7a
  38. 3524 sty $7b
  39. 3526 rts
  40. 3528 ;
  41. 10218 npa lda #"["
  42. 10220 .byte $2c
  43. 10222 ;
  44. 10224 npn lda #":"
  45. 10226 sta t2
  46. 10228 jsr $79
  47. 10230 bne np1
  48. 10232 jmp $af08
  49. 10234 np1 cmp #$22
  50. 10236 bne np2
  51. 10238 jsr $aebd
  52. 10240 lda #";"
  53. 10242 jsr $aeff
  54. 10244 jsr $ab21
  55. 10246 np2 jsr $b3a6
  56. 10248 lda #","
  57. 10250 sta $01ff
  58. 10252 ldx #0
  59. 10254 stx t3
  60. 10256 stx $11
  61. 10258 np3 lda #$a4
  62. 10260 jsr $ffd2
  63. 10262 np4 jsr $ffe4
  64. 10264 cmp #$0d
  65. 10266 beq np8
  66. 10268 cmp #$14
  67. 10270 beq np7
  68. 10272 cmp #$20
  69. 10274 beq np6
  70. 10276 cmp #"."
  71. 10278 beq np6
  72. 10280 cmp #"+"
  73. 10282 beq np6
  74. 10284 cmp #"-"
  75. 10286 beq np6
  76. 10288 ldx t2
  77. 10290 cpx #"["
  78. 10292 bne np5
  79. 10294 cmp #"[193]"
  80. 10296 bcc np5
  81. 10298 cmp #$db
  82. 10300 bcc np6
  83. 10302 np5 cmp #"0"
  84. 10304 bcc np4
  85. 10306 cmp t2
  86. 10308 bcs np4
  87. 10310 np6 ldx $d3
  88. 10312 cpx #$4f
  89. 10314 bcs np4
  90. 10316 pha
  91. 10318 lda #$9d
  92. 10320 jsr $ffd2
  93. 10322 pla
  94. 10324 jsr $ffd2
  95. 10326 ldx t3
  96. 10328 sta $0200,x
  97. 10330 inc t3
  98. 10332 bne np3
  99. 10334 np7 ldx t3
  100. 10336 beq np4
  101. 10338 jsr $ffd2
  102. 10340 jsr $ffd2
  103. 10342 dec t3
  104. 10344 bpl np3
  105. 10346 np8 lda #$14
  106. 10348 jsr $ffd2
  107. 10350 ldx t3
  108. 10352 jsr $aaca
  109. 10354 stx $43
  110. 10356 sty $44
  111. 10358 ldx t3
  112. 10360 bne np9
  113. 10362 jmp $abf3
  114. 10364 np9 jsr $b08b
  115. 10366 pha
  116. 10368 jsr $79
  117. 10370 beq np10
  118. 10372 jmp $af08
  119. 10374 np10 pla
  120. 10376 ldx t2
  121. 10378 cpx #"["
  122. 10380 bne np11
  123. 10382 jmp inl2
  124. 10384 np11 jmp $ac18
  125. 10386 ;
  126.